home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 July / 1985-07.d64 / tdisk generator (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  167 lines
  1. 100 print"[147]"tab(206)"turbodisk program generator":print:print
  2. 110 print"[159]insert disk and hit  return [146] when ready":print:print
  3. 120 get a$:if a$<>chr$(13) then 120
  4. 130 open 2,8,2,"turbodisk.obj,p,w":gosub 1000
  5. 140 print#2,chr$(0)chr$(192);
  6. 150 for i=0 to 435:read a:ck=ck+a:print#2,chr$(a);:next i
  7. 160 if a<>96 or ck<>55976 then print"error in data lines 49152-49584":goto 300
  8. 170 for i=0 to 75:print#2,chr$(234);:next i
  9. 180 ck=0:for i=0 to 443:read a:ck=ck+a:print#2,chr$(a);:next i
  10. 190 if a<>160 or ck<>45825 then print"error in data lines 49664-50102":goto300
  11. 200 close 15:close 2:print tab(9)"[154]turbodisk.obj created":print:print tab(10);
  12. 210 input "another copy (y/n)";a$:if a$<>"y" then end
  13. 220 run
  14. 300 close 2:close 15:open 15,8,15,"s0:turbodisk.obj":close 15:end
  15. 1000 close 15:open 15,8,15:input#15,e,e$,t,s:if e=0 then return
  16. 1010 print"disk error"e": "e$;t;s
  17. 1020 close 15:open 15,8,15,"i0:":close 15:end
  18. 49100 rem ** 64 turbodisk ml
  19. 49152 data 24,144,24,169,165,141
  20. 49158 data 48,3,169,244,141,49
  21. 49164 data 3,160,0,185,41,192
  22. 49170 data 240,6,32,22,231,200
  23. 49176 data 208,245,96,169,84,141
  24. 49182 data 48,3,169,192,141,49
  25. 49188 data 3,160,21,208,230,13
  26. 49194 data 84,85,82,66,79,68
  27. 49200 data 73,83,75,32,68,73
  28. 49206 data 83,65,66,76,69,68
  29. 49212 data 13,0,13,84,85,82
  30. 49218 data 66,79,68,73,83,75
  31. 49224 data 32,65,67,84,73,86
  32. 49230 data 65,84,69,68,13,0
  33. 49236 data 133,147,165,147,208,30
  34. 49242 data 160,0,177,187,201,36
  35. 49248 data 240,22,162,16,169,160
  36. 49254 data 157,172,195,202,16,250
  37. 49260 data 177,187,153,172,195,200
  38. 49266 data 196,183,144,246,176,11
  39. 49272 data 165,147,76,165,244,77
  40. 49278 data 45,87,0,0,32,169
  41. 49284 data 16,133,255,169,0,133
  42. 49290 data 251,169,194,133,252,169
  43. 49296 data 0,133,253,169,5,133
  44. 49302 data 254,165,186,32,177,255
  45. 49308 data 169,111,32,147,255,165
  46. 49314 data 253,164,254,141,128,192
  47. 49320 data 140,129,192,160,0,185
  48. 49326 data 125,192,32,168,255,200
  49. 49332 data 192,6,208,245,160,0
  50. 49338 data 177,251,32,168,255,200
  51. 49344 data 192,32,144,246,165,251
  52. 49350 data 105,31,133,251,165,252
  53. 49356 data 105,0,133,252,165,253
  54. 49362 data 105,32,133,253,165,254
  55. 49368 data 105,0,133,254,32,174
  56. 49374 data 255,198,255,208,180,165
  57. 49380 data 186,32,177,255,169,111
  58. 49386 data 32,147,255,169,85,32
  59. 49392 data 168,255,169,67,32,168
  60. 49398 data 255,32,174,255,120,169
  61. 49404 data 11,141,17,208,32,125
  62. 49410 data 193,44,0,196,48,83
  63. 49416 data 164,195,166,196,165,185
  64. 49422 data 240,6,172,2,196,174
  65. 49428 data 3,196,132,174,134,175
  66. 49434 data 162,4,173,0,196,240
  67. 49440 data 21,32,101,193,32,125
  68. 49446 data 193,173,0,196,48,50
  69. 49452 data 240,6,32,99,193,24
  70. 49458 data 144,240,162,2,160,0
  71. 49464 data 189,0,196,145,174,200
  72. 49470 data 232,236,1,196,144,244
  73. 49476 data 189,0,196,145,174,200
  74. 49482 data 32,112,193,24,72,169
  75. 49488 data 27,141,17,208,104,166
  76. 49494 data 174,164,175,88,96,169
  77. 49500 data 4,44,169,0,56,176
  78. 49506 data 235,162,2,160,0,189
  79. 49512 data 0,196,145,174,200,232
  80. 49518 data 208,247,24,152,101,174
  81. 49524 data 133,174,165,175,105,0
  82. 49530 data 133,175,96,160,0,173
  83. 49536 data 0,221,48,251,169,23
  84. 49542 data 141,0,221,173,0,221
  85. 49548 data 16,251,169,7,141,0
  86. 49554 data 221,162,4,202,234,208
  87. 49560 data 252,162,4,173,0,221
  88. 49566 data 10,8,10,38,149,40
  89. 49572 data 38,149,202,208,242,165
  90. 49578 data 149,73,255,153,0,196
  91. 49584 data 200,208,204,96
  92. 49600 rem ** 1541 turbodisk ml
  93. 49664 data 32,66,208,120,169,21
  94. 49670 data 141,7,28,169,18,160
  95. 49676 data 1,141,0,3,140,1
  96. 49682 data 3,32,205,5,169,3
  97. 49688 data 133,60,162,0,134,75
  98. 49694 data 240,43,160,0,177,59
  99. 49700 data 41,191,201,130,208,25
  100. 49706 data 200,200,200,185,169,6
  101. 49712 data 201,42,240,66,201,63
  102. 49718 data 240,4,209,59,208,7
  103. 49724 data 200,192,18,240,53,208
  104. 49730 data 234,230,75,166,75,224
  105. 49736 data 8,240,7,189,110,5
  106. 49742 data 133,59,208,206,173,0
  107. 49748 data 3,240,6,172,1,3
  108. 49754 data 76,19,5,169,255,141
  109. 49760 data 0,3,32,150,5,169
  110. 49766 data 58,141,7,28,88,76
  111. 49772 data 69,217,2,34,66,98
  112. 49778 data 130,162,194,226,230,59
  113. 49784 data 160,0,177,59,141,0
  114. 49790 data 3,200,177,59,141,1
  115. 49796 data 3,32,205,5,32,150
  116. 49802 data 5,173,0,3,208,245
  117. 49808 data 169,58,141,7,28,96
  118. 49814 data 160,0,185,0,3,133
  119. 49820 data 133,169,2,141,0,24
  120. 49826 data 173,0,24,41,4,240
  121. 49832 data 249,169,0,141,0,24
  122. 49838 data 162,4,169,0,6,133
  123. 49844 data 42,10,6,133,42,10
  124. 49850 data 141,0,24,202,208,240
  125. 49856 data 72,104,72,104,169,0
  126. 49862 data 141,0,24,200,208,204
  127. 49868 data 96,172,1,3,132,7
  128. 49874 data 173,0,3,197,6,8
  129. 49880 data 133,6,40,240,16,169
  130. 49886 data 176,133,0,88,36,0
  131. 49892 data 48,252,120,165,0,201
  132. 49898 data 1,208,78,169,238,141
  133. 49904 data 12,28,169,6,133,50
  134. 49910 data 169,0,133,51,133,48
  135. 49916 data 169,3,133,49,32,82
  136. 49922 data 6,80,254,184,173,1
  137. 49928 data 28,153,0,3,200,208
  138. 49934 data 244,160,186,80,254,184
  139. 49940 data 173,1,28,153,0,1
  140. 49946 data 200,208,244,32,224,248
  141. 49952 data 165,56,197,71,240,4
  142. 49958 data 169,34,208,20,32,233
  143. 49964 data 245,197,58,240,4,169
  144. 49970 data 35,208,9,169,236,141
  145. 49976 data 12,28,96,24,105,24
  146. 49982 data 133,68,169,255,141,0
  147. 49988 data 3,32,150,5,169,58
  148. 49994 data 141,7,28,165,68,76
  149. 50000 data 200,193,32,88,6,76
  150. 50006 data 148,6,165,18,133,22
  151. 50012 data 165,19,133,23,165,6
  152. 50018 data 133,24,165,7,133,25
  153. 50024 data 169,0,69,22,69,23
  154. 50030 data 69,24,69,25,133,26
  155. 50036 data 32,52,249,162,90,32
  156. 50042 data 148,6,80,254,184,173
  157. 50048 data 1,28,217,36,0,208
  158. 50054 data 6,200,192,8,208,240
  159. 50060 data 96,202,208,233,169,32
  160. 50066 data 208,170,169,208,141,5
  161. 50072 data 24,169,33,44,5,24
  162. 50078 data 16,158,44,0,28,48
  163. 50084 data 246,173,1,28,184,160
  164. 50090 data 0,96,160,160,160,160
  165. 50096 data 160,160,160,160,160,160
  166. 50102 data 160,160,160,160,160,160
  167.